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LL ccccccce «(Lk EEEEEEEEEE AAAAAA RRRRRRRR 

LL cceccccce =k EEEEEEEEEE AAAAAA RRRRRRRR 

LL cc LL EE AA AA RR RR 

LL cc LL EE AB AA RR RR 

LL cc LL EE Aa AA RR RR 

LL cc LL EE AA AA RR RR 

LL cc LL EEEEEEEE AA AA RRRRRRRR 

LL cc LL EEEEEEEE AA AA RRRRRRRR 

LL cc LL EE AAAAAAAAAA RR RR 

LL cc LL EE AAAAAAAAAA RR RR 

LL cc LL EE AA AA RR RR ees 
LL cc LL EE AA AA RR RR eeee 
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LLLLLLLLLL CCCCCCCC LLLLLLLLLL EEEEEEEEEE AA AA RR RR eeee 


LL III] 

LL II] 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


7 
12 
EDTSLCLEAR = CLEAR command 14-36 -1984 00:46:39 VAX-11 Bliss-32 V4.0-74 Page 1) 
12-808- 1382 99:58:35 DIsk KSVMSMASTER:CEDT OSRCSLCLEAR.BLI:1 . a) 
; 1 ZTITLE ‘EDTSLCLEAR = CLEAR command’ 
; § MODULE EDTSLCLEAR ( ! CLEAR command 
g Z gbent = 'v04-000' ! File: LCLEAR.BLI Edit: JBS1009 
3 = 
; 5 : BEGIN 
: § : ss snaennsenanekndanaieetumeaiimmninasmadenaninaninieimnanntmmbentbimnsiice 
; ie ty | 
3 § 9 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
: 10 10 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
3 1) ’ : :* ALL RIGHTS RESERVED. * 
3 ! . 
$ ig ig 1 te ns SOFTWARE IS eee UNDER A LICENSE AND MAY BE USED AND series * 
s 14 14 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH T * 
$ 15 15 1 !®* INCLUSION OF i & aye COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE ® 
; 1g 18 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
5 1 1 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 13 dt } A TRANSFERRED. * 
; : 
; 0 0020 1 !# phe. INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ; 9 ¢ : ? CORPORA TION. : 
3 'e 
4 4 09 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 5 025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; S iis : 
: st ose 1 PITITITITITILILI LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL 
3 9 1! 
3 0 0030 1 
3 1 88 1 1 fee 
: § § \ FACILITY: EDT -- The DEC Standard Editor 
: 1 i | ABSTRACT: | 
: g 036 1 This module executes the Line mode CLEAR command. 
; 3 09 3 ! ENVIRONMENT: Runs at any access mode - AST reentrant 
: 40 0040 AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
i 4 ¢ | | MODIFIED BY: | 
: (44 4 1 ! 1-001 = Original. Dus ret hs} This module was created by | 
3; 65 . 37 extracting the routine EDT $c. LR_C ss, mh the routine EXEC.BLI. 
; § g 1 ! 1-002 - Regularize headers. JBS 19-Mar- 
3; 6 047 1! 1- - Implement virtual memory Seal lacatiae TMV as -81 
3; & 8 gE = 04 - Close the input buffer on a CLEAR MAIN. SMB 53-May-1982 | 
: «649 1 ! 1-005 - Regularize vornet. i ok, payer? 2 
; 50 50 1! iz 3 - Flag the screen a angee e delete the current putter. JBS 07-Jul-1982 
3 51 51 1 ! 1-007 - Chan e sss B ty fee fs) EDTS$G. SCR_ REBUILD JBS 09-0ct-1982 
rs 3g 1} 1-008 - Don’t Let EDTS V_BUF point to limbo. JBS the ~Apr=19 
: 27 34 : : 1-009 = When deleting - *but tere put all its blocks on the available List. JBS 20-Jun-1983 
. =— = | 
: 5 . 2 
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EDTSLCLEAR EDTSLCLEAR = CLEAR command 1b-5e -1984 00:46:39 VAX-11 Bliss-32 V4.0-7 e 2 
OO hob Declarations 14 set 7 99:58:35 DISKSVMSMASTER: EDT. sre LCLEAR.BLI;1 the (2) 


; 3 § } XSBTTL "Declarations' 

: 59 : 1 ' TABLE OF CONTENTS: 
a; } 

; 6 ? REQUIRE "EDTSRC:TRAROUNAM'; 
> 64 501 1 FORWARD ROUTINE 

; 665 5 1 EDTSSCLR_CMD : NOVALUE; ! Process the CLEAR command 
; 66 050 

: 68 5 1! INCLUDE FILES: 

: $3 209 4 

: 4 0508 REQUIRE "EDTSRC:EDTREQ'; 
ea, . ey 

; v4 0645 1 | MACROS: 
tt poem 

: 78 649 1 | EQUATED SYMBOLS: 

: 79 0650 1! 

bee? | 

; 8B peeg 1 DT$K_INPUT_FILE, 

; 83 0694 EDTSK~CLOSE? 

>: 85 0696 1 ! OWN STORAGE: 

; & 0657 1! 

BB beso yi waa 

: 89 9660 | EXTERNAL REFERENCES: 

: 91 662 1! In the routine 
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EDT EAR EDTSLCLEAR = CLEAR command 16-Sep-1984 00:46:39 VAX-11 Bliss-32 V4.0-74 Page 
you~ EDTSSCLR CMO = CLEAR command 12-808-1 382 99:59:39 DLEKSVMEMASTERSCEDT SRCSLCLEAR.BLI:1 ° 
; 3? ; ! ZSBTTL ‘EDTSSCLR_CMD = CLEAR command’ 
. Ve oes | GLOBAL ROUTINE EDTSSCLR_CMD ! CLEAR Line-mode command 
; 39 $6 ! : NOVALUE = 
: 98 8 1 144 
: 100 +4 : FUNCTIONAL DESCRIPTION: 
: 101 671 1! Command processing for CLEAR. Position to the buffer to 
; 136 ie 1! be cleared, then call the work file system to clear it. 
3; 0675 1! If we are deleting the buffer header, delete the first block 
3 Is 674 1! of the buffer also. 
; 105 675 1! 
: 198 O76 1 ! FORMAL PARAMETERS: 
s; 0 0677 1! 
: 108 0678 1! NONE 
; 109 0679 1! 
; 110 0680 1 ! IMPLICIT INPUTS: 
, Fa 0681 1! 
; 138 0682 1! EDTS$A_CUR_BUF 
; 1 0683 1! EDTSSA_EXE_ CURCMD 
: (114 0684 1! EDTSSA_WKk_BuK 
3 643 0685 1! EDTS$G_WK_AVAIL 
s Ve 0686 1! EDTS$$G_WK_CURBUK 
.. Sr 0687 1! 
; 118 0688 1 ! IMPLICIT OUTPUTS: 
3; 6 («119 0689 1! 
: 120 0690 1! EDT$$G_SCR_REBUILD 
s Ye 0691 1! EDTS$A_Wk_BuK 
$ \$¢ 0692 1! EDTS$$G_WK_AVAIL 
; ie 0695 1! EDTS$$G_WK_CURBUK 
: 124 0694 1! EDTSS$A_PRY_BUF 
: 125 0695 1! 
: 126 0696 1 ! ROUTINE VALUE: 
3 Yer 0697 1! 
; 128 0698 1! NONE 
: 4 0499 1! 
3; 1 0700 1 ! SIDE EFFECTS: 
s U3 0701 1! é 
: 132 0702 1! The input file is closed (if not already) when a CLEAR MAIN occurs. 
3 ie 0703 1! 
. 0704 1 !-- 
3; «6135 0705 1 
3 } 8708 BEGIN 
; 138 708 ele ROUTINE 
: 139 709 EDTSSFMT_MSG, ! Print a message 
: 140 710 EDTSSCALCF IO ' Do file 1/0 
3; (141 0711 EDTSSOE “HEAP, ! Deallocate heap storage 
3 146 ay EDTSSFND BUF, ! Fin buffer 
; (14 71 EDTS$wF_CLRBUF, ' Clear a buffer ; 
; re me EDTSSRD_CURLN; ! Read the current Line 
; i*8 at Teo 
:; «(14 71 EDT$$G_INPUT_OPN, ' input file is still open . 
: 148 0718 EDT$$G_SCR_REBUILD, ' Set if the screen must be rebuilt 
3; «(149 0719 EDTSS$A_BUF LST, ! The List of buffers 
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EDTSSA_CUR_BUF : REF TBCB_BLOCK ' Pointer to the current buffer 
EDTSSA_EXE-CURCMD : a 14 NODE BLOCK, ’ perneet ? the current command. 

EDTSSA_PRV-BUF : REF TBCB_BLOCK, i Poi the prey ous buffer 

EDTSSA ve Buk : REF BLOCK” CwF _BUKT SIZE, ‘eyTed PIE 5 tue B_FIELDS), ' Current bucket 
EDT$$G_W VAIL, ext available Bucket 

EDTS$G_ uk ~CURBUK: Rrcens bucket 


MESSAGES (CINPFILCLO)); 
LOCAL 


eS SL eee eee 


L 
L 
| 
| 
CEN : BYTE, | 
SAV 
PREV~: REF TBCB_BLOCK, 
XT_: REF TBCB-BLOCK, 
RANGE : REF NODE_BLOCK; 
BIND 
MAIN TXT = UPLIT (BYTE ('MAIN')) 
PASTE_TXT = UPLIT (BYTE ('PASTE'S); 
| 
4 
3 
4 
4 
4 
4 
4 
5 
4 
4 
4 
4 
5 
; 
4 
4 
4 
4 


3 0 $ 
OB 
: 154 : 
: ‘ ; 
: 158 : 
; 159 : 
: 18h ; 
; 16 ; 
$ 8 : 
> 164 F 
: 165 
: 163 
5; 163 : 
; 169 : 
; 170 4 '¢ 3 
: 4 " E Save the current TBCB so we can get back. ; 
; ig 4 " SAVE_TBCB = .EDTS$S$A_CUR_BUF : 
i 17% 4 , RANGE = .EDTSSA_EXE_CURCMD ERANGE1; ; 
; 16 4 i Did we find or allocate a buffer successfully? : 
: 178 4 : 
; ie 4 4 4  leaaiae tered (.RANGE CBUF_NAME], .RANGE CBUF_LEN]) : 
; 81 3 BEGIN 3 
4 88 5 The MAIN and the PASTE buffers cannot be deleted, they can be cleared only. : 
: 185 ; : 
; 86 07 IF eee * er CBUF_LEN], .RANGE CBUF_NAME], 4, MAIN_TXT)) OR : $ 
: 8? 97 yCCHSEGL GRANGE CBUF LENS, .RANGE CBUF_NAMES, 5, PASTE_TXT)) ; 
: 189 07 NBEGIN F 
: 190 376 i+ : : ; 
: 3 676 : If MAIN is being CLEARed and the input file is still open, then close it. : 
: 19 ? ; 
; 3 5: Lf (CCHSEQL (.RANGE CBUF_LEN], .RANGE CBUF_NAME], 4, MAIN_TXT)) AND .EDT$$G_INPUT_OPN) | : 
; 7 | ; 
F} 3 7 IF EDTSSCALLFIO (EDTSK_CLOSE, EDTSK_INPUT_FILE, 0, 0) | $ 
; 198 7 THEN : 
; 199 769 BEGIN | 3 
: 00 770 EDTS$$A_CUR_BUF aS INPUT_RAB) = 0; : 
; 201 771 EDTS$G_ ~INPOT” ; 
5 4 77 END 3 
: 20 77 ELSE 

; Be ae EDTSSFMT_MSG (EDTS_INPFILCLO); 

i; 206 776 EDTSSWF_CLRBUF (); ! Delete all but first block | 


EDTSSDEA_HEAP” (EREF (TBCB_SIZE +7.LENS, EDTSS$A_CUR_BUF); 


'¢ 
! If the current buffer other than MAIN was deleted, go to the MAIN buffer and don't let 
' LAST point to a deleted buffer. Also, if the current buffer was deleted then the 

text part of the screen must be rebuilt. 


IF (.EDTSSA_CUR_BUF EQLA .SAVE_TBCB) 
THEN 


EGIN 
EDTSSFND BUF (MAIN_TXT, 4); 
EDTS$A_PRV_BUF = .EDTS$$A_CUR_BUF; 
EDTS$G_SCR_REBUILD = 1; 
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07 777 END | : 
08 ak F 
09 77 BEGIN | : 
9 fa 4 “A EDTSSWF_CLRBUF (); ! Delete all but first block ‘ 
\§ orks Put the first block of the buffer on the available List. | ‘ 
14 oF 4 : EDTSSA_WK_BUK CWFB_NEXT BUKT) = .EDTS$G_WK_AVAIL; | : 
13 Bf 5 a EDTSS$G_WK_AVAIL = TEDTSSG_WK_CURBUK; | ‘ 
" 4 ? Delete the buffer by disconnecting the TBCB header from the List | ‘ 
19 0789 PREV = .EDTS$A_CUR_BUF CTBCB_PREV_ BUF : : 
9 9790 * NEXT = .EDTSS$A_CUR-BUF CTBCB-NEXT~BUF): : 
¢ 0735 i If we want to clear the first buffer which is not MAIN we have to ‘ 
Z O92 readjust the buffer List header pointer. ° 
5 0795 4 ; 
26 0796 IF (.PREV EQLA 0) THEN EDTSS$A_BUF_LST = .NEXT; ‘ 
27 0797 : 
28 0798 '¢ ‘ 
$3 0799 ! Unlink the deleted buffer header ; 
0800 t= ; 
31 0801 : 
$ tts IF (.NEXT NEQA 0) THEN NEXT CTBCB_PREV_BUF] = .PREV; ‘ 
9804 IF (.PREV NEQA 0) THEN PREV CTBCB_NEXT_BUF) = .NEXT; | : 
8806 '¢ : 
44 Get the name length, and the beginning address, then deallocate header. | : 

0809 , LEN = .EDTS$$A_CUR BUF CTBCB_NAME_LEN]; | 

| 


'¢ 
: Otherwise go back to the original buffer. 


Ce OOO SOA Rt OOO NO PUN =O Obed 


ELSE 3 
EDTS$SA_CUR_BUF = .SAVE_TBCB; 
END; 
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EDTSLCLEAR = CLEAR command 
T ¥ = CLEAR command 


EDTSSRD_CURLN (); 
END; 
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16-Sep-1984 VAX=-11 8 mite Page 6) 
1on900n 138s 98:58:83 Pe anthastenccest sacSucuean.eulst «34 
! of routine EDTSSCLR_CMD | 
TITLE EDTSLCLEAR EDTSLCLEAR = CLEAR command 
SIDENT \V04-000\ 
PSECT _EDTSCODE.NOWRT, SHR, PIC,2 | 
4E 49 41 4D 99000 P.AAA: ASCII \MAIN\ : | 
54 53 41 50 00004 P.AAB: .ASCII \PASTE\ : | 
MAIN_TXT= P.AAA 
PASTE_TXT= P.AAB 
.EXTRN EDTSK INPUT FILE 
SEXTRN EDTSK~CLOSE, EDTSSFMT_MSG | 
EXTRN EDTSSCALLF 10, EDT$SDEA_HEAP 
EXTRN EDTSSFND_BUF, EDTSS$WF_CLRBUF 
-EXTRN EDTSSRD_CURLN, EDTS$$G_INPUT_OPN 
EXTRN EDT$$G_SCR_REBUILD 
EXTRN EDTS$A~BUF-LST, EDTSSA. CUR_BUF 
-EXTRN EDTSSA_EXE~CURCM 
EXTRN EDTSS$A_PRV-BUF, EDTS$A_WK_BUK 
EXTRN EDT$$G_WK_AVA AIL 
EXTRN EDTS$$G~ UK CURBUK 
EXTRN EDTS_INPFILCLO 
OFFC 00000 ENTRY EDTSSCLR CMD, Save R2,R3,R4,R5,R6,R7,R8B,R9,-: 0665) 
00 9€ 0000 MOVAB EDT$$G_WK_AVAIL, R11 ; 
00 9€ 00009 MOVAB €EDTS$WF_CCRBUF, R10 3 
00 9E 00010 MOVAB EDTS$$G_INPUT_OPN, R9 : | 
AF 9E 00017 MOVAB MAIN_TRT, 3 
00 9€ 0001B MOVAB EDTSSFND BUF, R7 : | 
00 i 00022 MOV EDTS$A_COR_BUF, R6 ; 
04 C2 00029 SUBL2 #4, SP : 
66 DO 00 ¢ MOVL EDTSSA A_CUR BUF SAVE TBCB > 0743 
00 DO 000eF MOVL  EDTSSA EXE. CURCMD, RO > 0744 
04 AO 00 00 MOVL 4(RO),~ ANGE ; 
08 A& 7D OO03A MOV 8(RAN E} SP) : 0749 
08 FB 003 CALLS #2, EOE SSFND BUF ; 
5 0041 LBS. —s«RO, *18 ; 
0068 31 00044 BRW 11$ ; 
0 As 20 0047 1$: CMPCS 12(RANGE), @8(RANGE), #0, #4, MAIN_TXT : 0756 
0B 13 O004F BEQL 2% : 
o¢ A 20 0091 CMPCS  12(RANGE), @8(RANGE), #0, #5, PASTE_TXT : 0757 
41 12 SO8A BNEQ 5$ : 
0c a, 20 005¢ 2$: CMPCS 12(RANGE), @8(RANGE), #0, #4, MAIN_TXT 3 0764 | 
33 12 D064 BNEQ = 4$ : | 
: : 00 BLBC _ EDT$$G_INPUT_OPN, 4$ : | 
E 7 9 6 CLRO = = (SP) * > 0767 | 
006 F DD $8 PUSHL M#EDTSK_ INPUT FILE : | 
G 8F OD 6 PUSHL #EDTSK KGLOSE : 
4 FB 00077 CALLS #4, EDTSSCALLFIO ; 


<m 
RS 


$66 0836 1 
67 0837 1 !<BLF/PAGE 
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EDT FAR EDTSLCLEAR = CLEAR command 1b-se -1984 746: VAX-11 Bliss-32 V4.0-74 P 7 
a Phe se EDTSSCCR CHD = CLEAR command 132808- 1382 99:58:33 STEKSVMGMASTERCEDT SRCLCLEAR.BLI;1 29° 3) 
ga 50 €£ ze BLBC~=E._—s«aRO,_: 38 ; : 
0 ‘. i p ROVE EDtS A_CUR_BUF. RO + 0770 : 
9 bs f CLRL EDTS G_INPUT_OPN : o771 ; 
000000006 8F DD 38 PUSHL = EDTS_INPFILCLO ; $F 4 : 
000000006 00 1 FB CALLS #1, EDTSSFMT_MSG : ; 
6A 9 8 3 4$ CALLS ye EDTSSwF_CLRBUF : 0776 : 
A 0 F 90 5$ CALLS #0, EDTS$$WF_CLRBUF * 0780 ; 
02 $0 emma) BE. mov EDESEA.UK OOK, RO, teed 
000000006 86 D p MOVL ERTS CcUkT CURBUK EDT$$G_WK_AVAIL : 0785 F 
BBO RRA Eo pe BA 
$¢ ‘0 DO 00089 MOVL 8(RO), NEXT + 0790 ; 
| a bol EG) 
000000006 00 1 D 900¢1 MOVL NEXT, EDT$$A_BUF_LST : ; 
1 05 000C8 6s: TSTL NEXT + 0802 : 
4 13 OOOCA BEQL «= 7$ : : 
22 Al § DO OOOCC MOVL PREV, 34(NEXT) r : 
D5 00000 7$: TSTL PREV + 0804 ; 
é o4 13 000D2 BEQL = 8S ; : 
26 A2 1 DO 000D4 MOVL NEXT, 38(PREV) s 
51 2c AO 90 00008 8S: MOVB 44(RO), LEN : 0809 
56 DD o000¢ PUSHL 6 + 0810 
04 AE 51 9A OODE MOVZBL LEN, 4(SP) ; 
4 AE 2D CO O0DE ADDL2 #45. 4(SP) ; 
04 AE SF OO0E6 PUSHAB 4(SP) : 
000000006 00 02 FB O00E9 CALLS #2, EDT$$DEA_HEAP : 
55 66 D1 OOOFO 9$ CMPL EDTS$A_CUR_BOF, SAVE_TBCB : 0819 
17 12 OOOF BNEG 10$ : 
04 DD O00F PUSHL #4 + 0822 
67 05 FB 000F9 CALLS #2, _EDTSSFND_BUF 
000000006 00 £6 00 OOF MOVL  EDTS$A_CUR_BOF, EDT$S$A_PRV_BUF : 0825 
000000006 00 01 ng 0195 MOVL i, EDT$$G-SCR. REBUILD : 082% 
66 9 D0 a10¢ 10$:  MOVL. SAVE_TBCB, EDT$$A_CUR_BUF : 0830 
000000006 00 00 FB OO10F 11$: CALLS #0, EDTS$S$RD_CURLN > 0834 
04 00116 : 0835 
; Routine Size: 279 bytes, Routine Base: _EDTSCODE + 0009 
| 
| 
| 
| 
| 


EDT EAR EDTSLCLEAR = CLEAR command 16-50 Sep-1984 VAX-11 Bliss-32_ V 
te ty EDTSSCLR. CMD = CLEAR command ~8ep-1984 99: 38 3 DISKSVMSMASTER: tt + SRCILCLEAR. BLI; 
; 383 ; ae3s ’ END ! of module EDTSLCLEAR 

: 271 40 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 288 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

ee gh ea ae eet Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 80 21 40 00:00.2 

: _$255S$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 0 7 00:00.1 

3 COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LCLEAR/OBJ=OBJ$:LCLEAR MSRC$:LCLEAR.BL1/UPDATE=(ENH$:LCLEAR) 
: Size: 279 code + 9 data bytes 

3; Run Time: 216. 

; Elapsed Time: 00:19. 

3; Lines/CPU Min: aad 

3; Lexemes/CPU-Min: 10433 

3 Y Used: 123 pages 

; Compilation Complete 
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